From 28b83297264341b404856fd6e96dd366fa0c1fd0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 6 Jun 2014 10:25:39 -0400 Subject: [PATCH] * lisp/international/mule-cmds.el (ucs-names): Add special entry for BEL. Fixes: debbugs:17702 --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b5df032e9c..77b1585dcbe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-06-06 Stefan Monnier + + * international/mule-cmds.el (ucs-names): Add special entry for BEL + (bug#17702). + 2014-06-06 Glenn Morris * startup.el (window-setup-hook): Doc fix. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index f83e64e3921..0a2f09029da 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2945,7 +2945,10 @@ on encoding." (if (setq name (get-char-code-property c 'name)) (push (cons name c) names)) (setq c (1+ c)))) - (setq ucs-names names)))) + ;; Special case for "BELL" which is apparently the only char which + ;; doesn't have a new name and whose old-name is shadowed by a newer + ;; char with that name. + (setq ucs-names `(("BELL (BEL)" . 7) ,@names))))) (defun read-char-by-name (prompt) "Read a character by its Unicode name or hex number string. -- 2.30.2